(smtpmail-send-it): Don't use time-stamp-strftime.

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 433c9ec7a93d8dca4a410baac12d195fa74cbcc3..a3310b79528695d6a915407c6fd638be020df046 100644 (file)
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -253,8 +253,8 @@ This is relative to `smtpmail-queue-dir'.")
                (error "Sending failed; no recipients"))
            (let* ((file-data (concat 
                               smtpmail-queue-dir
-                              (time-stamp-strftime 
-                               "%02y%02m%02d-%02H%02M%02S")))
+                              (concat (time-stamp-yyyy-mm-dd)
+                                      "_" (time-stamp-hh:mm:ss))))
                   (file-elisp (concat file-data ".el"))
                   (buffer-data (create-file-buffer file-data))
                   (buffer-elisp (create-file-buffer file-elisp))